`qColman` <-
function(rule, data)
{
	# qColman
	ct = contingencyTable(rule, data)
	
	fr = ct[["nr"]] / ct[["N"]]
	fc = ct[["nc"]] / ct[["N"]]
	frc = ct[["nrc"]] / ct[["N"]]
	
	return ((frc-fr*fc)/(fr-fr*fc))
}

